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1. ABSTRACT 

DHC IS Al IOMOD THAT EXERCISES UP TO AMD INCLUDING TWO 
CONSECUTIVELY ADDRESSED AND CONSECUTIVELY VECTORED DMC11 
SYNCHRONOUS INTERFACES. IT USES MAINTENANCE MODE OR A TURN 
AROUND CONNECTOR TO TRANSMIT AND RECEIVE A SET DATA 
PATTERN. THE RECEIVER AND TRANSMITTER ISR ARE ALWAYS AT 
PRIORITY FIVE (BR1 £ BR2). DATA CHECKING IS PERFORMED AT 
LEVEL AND DONE OUTSIDE THE ISRS. 

2. REQUIREMENTS 

HARDWARE: AT LEAST 1 DMC11-AR WITH A 

DMC11-DA OR DMC11-FA 

OR 

AT LEAST 1 DMC11-AL WITH A 
DMC11-MA OR A DMC11-MD 

STORAGE:: DMC REQUIRES % 

1. DECIMAL WORDS: 1578 

2. OCTAL WORDS: 03052 

3. OCTAL BYTES: 6124 

3. PASS DEFINITION 

ONE PASS OF THE DMC MODULE CONSISTS OF TRANSMITTING AND 
RECEIVING 7 BUFFERS OF 100 CHARACTERS 200 TIMES FOR EACH SELECTED 
DEVICE. 

4. EXECUTION TIME 

RUNNING ALONE ON AN 11/45 ONE PASS TAKES APPROXIMATELY 
ONE MINUTE. 

5. CONFIGURATION PARAMETERS. 
DEFAULT PARAMETERS: 

ADDR: 1 / VECTOR: 1* BR1: 5, BR2: 5, DVID1: 1, SRlsO 
DMC WILL RUN UP TO TWO CONSECUTIVELY ADDRESSED AND 
CONSECUTIVELY VECTORED DMCll'S. IF SRI IS ZERO THEM 
LINE UNIT LOOP (MAINT MODE) IS USED AND UP TO 16 
DMC11S C8 DMC MODULES) MAY BE RUN AT A TIME. IF SRI 
BITO = 1 THEN LINE UNIT LOOP IS NOT USED AND A TURN- 
AROUND CONNECTOR MUST BE INSTALLED/ THIS ENABLES THE 
DMC TO RUN AT SPEED. IF YOU ARE RUNNING THE DMC1 IS AT 
SPEED* NO MORE THAN A TOTAL SPEED OF 2 MEGABAUD AT 
FULL DUPLEX WILL RUN DEC/X AT A TIME. THAT IS TO SAY IF 
YOU ADD THE SPEEDS OF ALL DMC11S THAT ARE RUNNING 
THE TOTAL MUST NOT EXCEED 2 MEGABAUD. EXAMPLES: 

AT THE BAUD OF ONE MEG A MAXIMUM OF TWO DMC11S 
CAN BE RUN AT A TIME. 

AT THE BAUD OF 500K A MAXIMUM OF FOUR 
DMC11S CAN BE RUN AT A TIME. 
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OR ANY COMBINATIN SUCH AS 1 DMC11 AT A MEG 
AMD 2 DMC11S AT 500K BAUD CAN BE RUN AT A TIME, 
ANY COMBINATION AS LONG AS THE TOTAL BAUD DOES 
NOT EXCEED 2 MEG, 

6. DEYICE/OPTION SETUP 

IF SRI = (LINE UNIT LOOP MODE) THEN THERE IS NO 
SPECIAL SET UP NECESSARY. 

IF SRI BITO = 1 (RUNNING THE DMC AT SPEED) THEN 
A TURN- AROUND CONNECTOR MUST BE INSTALLED* 

NOTES SRI CAN BE SET UP AT CONFIGURATION TIME OR 
AT RUN TIME WITH A MOD COMMAND. 
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SEQ 0003 
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7. MODULE OPERATION 

1* LOAD SOFTWARE POINTERS IN LIMK TABLE* 

2* LOAD VECTORS AMD PRIORITIES IN TABLE 

3* ENABLE SELECTED DEVICES. 

4. SCAN FOR ALL DEVICES TO FINISH 

5* IF MOT DOME GO TO 4* 

IF HUNG REPORT SO AID DROP HUNG DEVICE* 
6* CHECK DATA FOR ALL DEVICES SELECTED. 
7* DECREMENT ITERATION COUMT 

8. IF HOT = GO TO 1 

9. SIGNAL ENDPASS. 

IISR: INPUT INTERRUPT SERVICE ROUTINE* 
II* GET INTERRUPTING DHCSCR. 

12. IF BASE I WAS REQUESTED, LOAD BASE ADDRESS. 

13. IF RECEIVE BA/CC MAS REQUESTED, LOAD REC BA/CC. 

14. IF XMIT BA/CC WAS REQUESTED, LOAD XMIT BA/CC. 

15. RTI 

OISR: OUTPUT INTERRUPT SERVICE ROUTINE. 

01. GET INTERRUPTING DMCSCR 

02. IF ERROR* REPORT IT AND EXIT. 

03. IF XMIT DONE OR REC DONE, SET APPROPRIATE BITS IN 
THE ENDPASS FLAG FOR THE DEVICE. 

04. RTI 
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SEQ 0005 



9. NON-STANDARD PRINTOUTS 

If THE MODULE "BANGS" III WHICH NOT ALL SELECTED DEVICES 
HAVE FINISHED* THEN A "HUNG" MESSAGE IS PRINTED OUT* 
CHECK THE ENDPASS FLAGS FOR EACH SELECTED DEVICE IN 
THE LINK TABLE TO DETERMINE WHICH DEVICE FAILED TO 
FINISH AND HOW FAR IT GOT* 

FOR EXAMPLES 

THE TWO ENDPASS FLAGS ARE LOCATED IN THE LINK TABLE 
(INTLNK) AT THE FOLLOWING LOCATIONS. 
XX 11: 
XX 2l£ 

ONLY BITS THRU 4 ARE USED AND ARE DEFINED AS FOLLOWS 2 

BITO s 1 THE BASE ADDRESS WAS LOADED. 

BIT1 =1 7 RECEIVE BA/CC'S WERE LOADED. 

BIT2 =1 7 TRANSMIT BA/CC'S WERE LOADED. 

BIT3 =1 7 TRANSMIT DONE'S WERE RECEIVED. 

BIT4 =1 7 RECEIVE DOME'S WERE RECEIVED. 

A CORRECT END PASS FLAG = 37, WHEN THE ENDPASS FLAGS 
= 37 FOR THE SELECTED DEVICES, THE DATA IS CHECKED. IF 
A "HUNG" MESSAGE IS TYPED IT IS BECAUSE ONE OR BOTH 
DEVICES DID NOT FINISH. TO FIND WHICH ONE, CHECK THE 
END PASS FLAGS, ANY THAT ARE NOT EQUAL TO 37 ARE THE 
HUNG DEVICES. CHECK WHICH BITS OF THE ENDPASS FLAG ARE 
CLEAR TO SEE WHAT IT WAS TRYING TO DO. 

SOFT ERROR 



IF THE DMC'S PROTOCOL CHECKERS DETECT AN ERROR IN THE TRANSMISSION 
OF A MESSAGE, IT WILL RETRANSMIT THE ENTIRE MESSAGE, UPDATING 
AN ERROR COUNTER IN IT'S RAM. IF THIS COUNTER EXCEEDS 7 ON ANY 
GIVEN MESSAGE, IT WILL DECLARE A HARD ERROR. HOWEVER, IF FEWER 
THAN 7 OCCUR, IT WILL TAKE NO NOTICE OF THE CONDITION. FOR DEC/ 
Xll PURPOSES, HOWEVER, THE DMC MODULE WILL CHECK THE ERROR COUNTER 
AFTER EACH MESSAGE; IF IT HAS BEEN INCREMENTED AT ALL, I.E., IF 
AT LEAST ONE RE-TRANSMISSION WAS MADE, DMC WILL DECLARE A SOFT 
ERROR. 

THE SOFT ERROR MESSAGE MAY INDICATE AN I NTERMITTANT DE- 
VICE FAILURE OR OTHER HARDWARE PROBLEM; HOWEVER, IF THE MESSAGE 
OCCURS IN A HEAVILY LOADED SYSTEM, IT MAY BE THAT THE PROBLEM 
IS DUE TO BUS LATENCY (THE DMC-11 DOES NOT RECOGNISE A DISTINCT 
"DATA LATE" ERROR—IT CONSIDERS THE CONDITION MERELY ANOTHER 
TRANSMISSION PROBLEM). ESPECIALLY IF THERE ARE OTHER FAST DIRECT 
MEMORY ACCESS DEVICES SELECTED, IT COULD BE THAT THE DMC-11 *S 
NPR'S ARE NOT BEING HONORED QUICKLY ENOUGH TO PREVENT BIT-DROPPING. 

TO VERIFY WHETHER THIS IS THE CONDITION, RUN A SINGLE 
DMC MODULE, WITH A SINGLE DMC-11 DEVICE SELECTED. THE SOFT ERROR 
MESSAGE SHOULD NOT OCCUR UNDER THESE CONDITIONS. IF 
IT DOES OCCUR, THE PROBLEM IS PROBABLY IN DMC-11 HARDWARE OR A 
CABLE FAULT. 
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I is 

I ill 



:f 888113 

6 000224 



SFQ 0007 




**iiL**si*** 




************************************************** 



/ ;module name. 

iOSED T 
;1ST DEVICE ADD... 

*ST DEVICE VECTOR 
R LEVEL. 

"TOR 1 
ER ' 



KEEP TRACK OF WBUFF USAGE 



;2n5 BR LEVEL; 



******************** 



;STATUS WORD. 
jMQOULE START ADDR. 
JMODULE STACK POINTER. 
JPASS COUNTER. 

;» OF ITERATIONS PER PASS=200 

;loc to count iterations 
;l0c to save total soft errors 

;L0C TO SAVE TOTAL HARD ERRORS 
;L0C TO SAVE SOFT ERRORS PER PASS 
HOC TO SAVE HARD ERRORS PER PASS 
jjj OF SYS ERRORS ACCUMULATED 
;H0LDS RANDOM ft WHEN RAND MACRO IS CALLED 
;RESERVED FOR MONITOR USE 
; RESERVED FOR MONITOR USE 
^RESERVED FOR MONITOR USE 
>LOC TO SAVE RO. 
JLOC TO SAVE Rl. 
;L0C TO SAVE R2. 
JLQC TO SAVE R3. 
}L0C TO SAVE R4. 
;LOC TO SAVE R5. 
;LOC TO SAVE R6. 
; ADDR OF CURRENT CSR. 
? ADDR OF GOOD DATA, OR 

;contents of csr. 
;addr of bad data, or 
;status reg contents. 
>type of error 

JEXPECTED DATA. 

;actual data. 

;restart address after end of pass 
>«drds to memory per iteration 
;w0rds from memory per iteration 
;s of interrupts per iteration 
? module identification number=127 



MODSP: 



****************** 



r****** ********************** ******** 
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260 

I 
|| 

268 

m 

I 

276 
277 



m 



ooo; 

~00< 



oooooo 
oooooo 



mil 

00000 



oooooo 
oooooo 
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; VARIABLES FOR DMC11 

DLYl: 
DLY2: 
SELECT: 
FLAGB: 
FIRST: 
MASK: 
RCOUNT: 

tcount: 
va: 
pa: 
ea: 
saro: 
sari: 

TERM 



37 
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328 
329 

332 
333 



? 

START: 



RESTRT : 

is? 1 



000004 
000006 



BEGIN THE TESTS FOR THE DMC11 



2$: 
3$: 

4$: 



000726 
016701 



5$: 

SET0P2: 



MOV 
MOV 
MOV 
BIT 
BNE 
MOV 
BNE 

ENDS/ 

CLR 

MOV 

CLR 

CMP 

BNE 

MOV 

BEQ 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

ASR 

BCS 

BEQ 

ADD 

ADD 

ADD 

BR 

MOV 

MOVB 

MOV 

MOV 

ADD 

MOVB 

CLR 

CLR 

CLR 

TST 

BNE 

CLR 

CLR 

CLR 

CLR 

BR 

INC 

BR 

MOV 



#8 S #INTR 
R700,yDTO 
§700* WDFR 
f"C<3>,DVIDl 
DROP 



IEGIN 
FIRST 

#RBUF11,R0 
|R0) + 
#BASE1,R0 

sIlect # ro 

DROP 
ADDR,R1 
VECTOR, R2 
#TNTLNK,R3 
FLAGB,XX11 
FLAGB,XX21 

IPIRINQ/ INQIN 
PIRINQ^INQOUT 
PIROUTQ/OUTQIN 
PIROUTQ,OUTQOUT 
REGQ/REGQI 
REGQ,REGQO 

4£ 

SETUP2 

!10,R1 
10,R2 
34,R3 



;8 INTERRUPTS/ITERATION 

;700 WORDS TO MEM/ITERATION 

;700 WORDS FRON MEM/ITERATION 

;DROP MODULE IF DEVICES OTHER 

;THAN FIRST 4 ARE SELECTED 

;SELECT=ACTI VE DEVICES 

;DR0P MODULE IF NO ACTIVE DEVICES 

;NG DMC'S OR ILLEGAL DMC'S SELECTED 

JCLEAR FIRST TIME FLAG 

;GET SET TO CLEAR BUFFERS 

;CLEAR BUFFER 

/END OF BUFFERS? 

;BR IF NO 

>R0=ACTIVE BITS 

;DROP MODULE IF NO DEVICES ARE SELECTED 



;ri=device csr 
;R2= 



VECTOR 

;R3=POINTER TO INTERRUPT LINKAGE 
;SET END PASS FLAG FOR DEVICE Si 
/SET END PASS FLAG FOR DEVICE #2 
>SET UP ALL QUEUES 



BRC2(R2> 
R1,10(R3) 

20(R3) 



;ACTIVE? 

;BR IF ACTIVE 

;BR IF DONE 

;UPDATE CSR 

;UPDATE VECTOR 

/ UPDATE LINK 

;C0NTINUE 

>l0.ad vector 

;ldad interrupt level 

;load csr to linkage 

/load linkage address in vector 

; adjust it 

;l0ad interrupt level 
/clear input offset location 
;clear output count location 
;clear end pass flag 
jbeginning of a pass? 

;BR IF NOT 

>clear area to save 
;base table error 
;c0unts for comparision 

;C0NTINUE 

;SET BITO OF ENDPASS FLAG 
CONTINUE 

;ri=device csr 
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MOV 

ASR 

BCS 

BEQ 

ADD 

BR 

TST 

BNE 

MOV 

TST 

BMI 

MOV 

MOV 

BREAKS 

BREAKS 

MOV 

MOV 

BR 

BIS 

BIT 

BNE 

BIS 

BR 

BIC 

TST 

BNE 

BIS 

BR 

BIS 

BR 




|[100#2(R1) 
§BIT0,SR1 

||oOO,(Rl) 

#4000, (Rl) 
FIRST 

|f 43,(R1> 

#144, (Rl) 



;R0=ACTIVE BITS 
;ACTIVE? 

;br if yes 
/br if done 
; update csr 
continue 
;first pass? 

/master clear first time only 
;master clear 

JRUN SET? 
?BR IF YES 

jsave RO 

;SAVE Rl 

^TEMPORARY RETURN TO MONITDR. . « . 

/THEN CONTINUE AT NEXT INSTRUCTION. 

;RESTORE RO 

;RESTORE Rl 

;WAIT FOR RUN 

;SET IEO 

;IS SRI ZERO? 

;BR IF NO (TURNAROUND CONNECTOR) 
/OTHERWISE SET LU LOOP 
^CONTINUE 

;IF SRI BITO IS SET/CLEAR LU LOOP 
;FIRST TIME HERE? 
* B F IF NO 

;SET LU'LOOP, IEI ,RQI,BASEI 
;CONTINUE NEXT DEVICE 
;SET LU LOOP* IEI, REC BA/CC 
>CONTINUE NEXT DEVICE 
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361 
368 



375 

w 

380 



[scan 

;all 



ALL ENDPASS FLAGS UNTIL 
ACTIVE DMC11S ARE FINISHED 
(ENDPASS FLAG = 37) 



"00762" 

P 

M0Q4" 

WW 

001034" 

mm- 

001056' 
001060" 

mm' 



mi 



mil hhh 

177240 002014 

000001 177232 
177222 002032 

000002 177214 
177210 

003006 

nr — 

003 



1414 

M 



001404 
36270- 




170 
264" 



000034 

177777 177144 
000000" 

mm 177130 

003066" 

176752 
176750 

HStt 

176742 
000000' 

000000 
177050 

8S88Sg 



SCAN : 

1$: 
2$: 
3$: 

4$: 
5$: 
6$: 



9$: 
10$: 



11$: 



12$: 



NOV 

MOV 

CLR 

CMP 

BNE 

BIC 

CMP 

BNE 

BIC 

TST 

BNE 

MOV 

MOV 

MOV 

ASR 

BCS 

BEQ 

ADD 

TST 

BR 

MOV 

ENDIT$, 



JMP 

MOV 

MOV 

MOV 

MOV 

CMPB 

BEQ 

MOV 

MOV 

MOV 

MOVB 

MOVB 

• *** 



gJjMASK 



FLAGB,XX11 

If *MASK 
FLAGB/XX21 

lfiTLNK+10/Rl 

SELECT#R0 

|BUFTAB,R3 




LOOP 

(fV/MASK 

lR,1 J,R2 

(R2)*,R4 

#XBUF 4 R5 

|R5) # (R4) 

<R1) £ CSRA 
R5/SBADR 



R4#WASADR 
(R5)/ASB 
<R4),AWAS 

************* 



;SET BIT FOR ALL DEVICES 
>DEL AY COUNT 
; DEL AY 

;DEVICE 1 DONE? 
;BR IF NO 

;DEVICE 1 IS DONE SO CLEAR BITO 
;DEVICE 2 DONE? 

BR IF NO 
JDEVICE 2 IS DONE SO CLEAR BIT1 
JARE ALL DEVICES FINISHED? 
JBR IF NO 

;R1 IS POINTER TO DEVICE CSR 

;R0 CONTAINS BITS FOR ACTIVE DEVICES 

;R3 IS POINTER TO DEVICE RECEIVER BUFFER 

JACTIVE? 

JBR IF YES 

JBR IF DONE 

/UPDATE Rl TO NEXT DEVICE CSR 
;UPDATE R3 TO NEXT BUFFER 
;CONTINUE 

;SET FIRST FLAG TO -1 

JSIGNAL END OF ITERATION. 

;MONITOR SHALL TEST END OF PASS 

/LOOP MODULE 

/MASK = BUFFER COUNT 

JR2 POINTS TO FIRST REC BUFFER 

JR4 POINTS TO RECEIVER DATA 

;R5 POINTS TO GOOD DATA 

;C0MPARE DATA 

JBR IF GOOD 

JLOAD CSR 

/LOAD GOOD ADDRESS 
/LOAD BAD ADDRESS 
JLOAD GOOD DATA 



******** 



***** 



t*** **** 



CMPB 

CMPB 

BNE 

DEC 

BNE 

MOV 

MOV 

ADD 

MOV 

ADD 

CMPB 

BNE 

INC 



Jte 

10$ 
MASK 

|L?5 
R1>R2 



1/R2 
#14, R2 



3D ATA ERROR I I ! 
***************************************** 

JPOP DATA POINTERS 

/DONE YET? 

JBR IF NO 

JDEC BUFFER COUNT 

JBR IF NOT ALL 7 BUFFERS CHECKED 

JNOU LETS CHECK BASE TABLE ERROR COUNTS 

JGET BASE TABLE ADDRESS 

JADD OFFSET TO ERROR COUNTS 

JGET POINTER TO CSR 

JMAKE IT POINT TO SAVED ERROR COUNTS 
JCOMPARE BASE TABLE ERROR COUNTS 
JTO SAVED ERROR COUNTS BR IF HOT SAME 
JBUMP TO NEXT ERROR COUNT 
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00Q0|, 




14$: 



ioOOol 176556 
000001 176552 

000000" 001626" 



16$: 



000060 000104 
000000" 001566" 



17$: 



18$: 
XERR: 



CMP 
BNE 
BR 

MSGN$ 
MOV 
MOV 
MOV 
ADD 
MOVB 
INC 
CMP 
BNE 
JSAVE 
MOV 
ADD 
MOV 
MOV 
CMP 
BNE 
MOV 
MOV 
MOV 
MOV 
MOV 

• ****• 

SOFERS 

• ***** 

BR 

BREAKS 

BREAKS 

DEC 

BEQ 

JMP 

DEC 

BEQ 

JMP 

MOV 

BIC 

ROR 

BCC 

JSR 

CSR1 

1 

ROR 

BCC 

JSR 

CSR2 

2 

JMP 



||3,R5 
5$ 

/BEGI N^SOFT 

|E£AV1 £ R2 
6(R1),R4 
R5,R4 

<y?4)+ # (R2) + 

fli' R5 

THESE BASE TABLE 
R1,R2 
#14 € R2 
|ESAV1,R4 
(R4)+,(R2)+ 
|ESAV4+2,R4 

(Rl ),CSRA 
(R1),R5 
(R5),ACSR 



*! 



i?Itep M 

************* 



********** 



5$ 

rBEGIN 
'BEGIN 

DLY2 

.+6 

D?Y1 
. + 6 

mIsK,R0 

R0#SsLECT 

RO 

17$ 

R3/XERR 

RO 
18$ 

R3/XERR 



MOV 
MOV 



R3)+#R2 
PIS... __#6? # D6v EV 



MSGN$, BEGIN, DROP 1 



JALL DONE YET? 
JBR IF NO 

JCONTINUE NEXT DEVICE 

JASCII MESSAGE CALL WITH COMMON HEADER 
JBASE OFFSET TO ERROR COUNTS 
JLOAD COUNTS FOR TYPEOUT 
JGET BASE ADDRESS 
JADD IN OFFSET 
JOK LOAD TABLE FOR TYPEOUT 
J INCREMENT COUNTER 
JDONE YET? 
JBR IF NOT 
ERROR COUNTS 
JGET POINTER TO CSR 

JMAKE IT POINT TO SAVED ERROR COUNTS 
JR4 POINTS TO NEW COUNT VALUES 
JSTORE BASE TABLE COUNTS 
JDONE? 
JBR IF NOT 
JLOAD CSR 

JSAV CONTENTS OF SELO 
JSAVE BASE ADDRESS 
{DATA ERROR 
***************************************** 

JBASE TABLE DDCMP ERROR COUNTERS 
***************************************** 

JCONTINUE NEXT DEVICE 

JTEMPORARY RETURN TO MONITOR.... 
JTHEN CONTINUE AT NEXT INSTRUCTION. 

JDEC DELAY COUNT 

JBR IF NOT DONE 
JDEC DELAY COUNT 

JBR IF NOT DONE 

JPUT BITS OF HUNG DEVICES IN RO 

JDROP ANY HUNG DEVICES 

JWAS DEVICE 1 HUNG? 

JBR IF NOT 

JTYPE ERROR MESSAGE 

JPOINTER TO DEVICE #1 CSR 

JDEVICE NUMBER FOR TYPEOUT 

J WAS DEVICE 2 HUNG? 

JBR IF NOT 

J TYPE ERROR MESSAGE 

JPOINTER TO DEVICE #2 CSR 

JDEVICE NUMBER FOR TYPEOUT 

JRESTART MODULE 

JGET POINTER TO CSR 
JGET DEVICE NUMBER 
JMAKE IT ASCII 

JASCII MESSAGE CALL WITH COMMON HEADER 



* 
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a 



001552' 

mm- 

001564' 



oil inhi 

104405 000000* 001612* 
000000 



I iii m 



If 



Si. 

Ill 



530 
531 



mm- mr 



001602* 

ill; 

mm 

001626* 

mm- 
mm- 



1777?7 

001602* 
001604' 

m 



001640* 



001710* 



SEQ 0013 




;get csr address 
?sa|e csr 



******** 



fsAVE CONTENTS OF S K _. 
;S AVE CONTENTS OF SEL2 

ike mmi iitl 

;END PASS FLAG 



0FFSET 

ERS 



************************ 



DEV: 
DROPl: 



hlR 
RTS 



XDROP1 
DEV 

XDROP2 
-1 

SOFT1 
-1 



jSa Rl> 



DLY1 

DLY2 

iSAVl 

ESAV2 

ESAV3 

-1 

ESAV1 
ESAV2 
ESAV3 
ESAV4 
-1 



;SHUT OFF HUNG DMC11 
; RETURN 



; EXTENDED ERROR PRINTOUT LOCATIUNS 



JTABLE OF ADDRESSES FOR EXTENDED ERROR PRINTOUT 



042045 041515 030461 

mm mm 04, p 

040 051511 044040 

Uitil iii! 

047522 050120 042105 

042b mm mm 

026440 042040 041504 



XDROPl: .ASCIZ /1DMC11 DEVICE / 

XDROP2: . ASCIZ / IS HUNG AND HAS BEEN DROPPED/ 



.ASCIZ /%S0FT ERROR - DDCNP ERROR COUNTERS ARE NON ZEF0%/ 
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532 001740' 050115 042440 051122 

533 Ogl?!!* OS 1 l 041440 052517 

535 0ol?62* oillJf 02olo5 04/JsiI 

536 001770' 020116 042532 047522 

537 001776' 000045 

538 .EVEN 
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062630 
002032 



m 



mm 




175712 XMIT: 

000004 

""0006 



MOV 
ADO 
CMP 
BNE 
MOV 
MOV 



R5/AINQIN ?SfORE LINK POINTER IN QUEUE 

#2/lNQlN ;UPDATE QUEUE 

|PIRlNQ+20/INQIN;END OF QUEUE? 
IS ;BR IF NO 

§P|RINQ/INQIN JhESBT QUEUE POINTER 
<SP)+/K5 ;RESfORE R5 



PIRQ$,BEGIN/2$ 



) QUEUE UP TO CONTINUE AT 2$ AND RTI 



CMP 
BNE 
MOV 
MOV 
BIT 
BEQ 
BIT 
BNE 
BIT 
BEQ 
MOV 
JSR 
MOV 
MOV 
JSR 
BIS 

BISB 
EXIT$, 
CLR 
JSR 
BISB 
EXIT$ 
MOV 
ADD 
MOV 
JSR 
MOV 
MOV 
BIS 
JSR 
ADD 
CMP 
BEQ 

EXIT$ 

BIS 

CLR 
BISB 
EXITS 
MOV 
JSR 
MOV 
MOV 



iPIRINQ+20/INQOU 

K 



fPIR 
I(R5 



N|| INQQUT 

||,(R1> 

12(R5)/VA 
PC/EABtT" 



It. 



PC/ENDCLR 
#1,6 (R5) 

«m- m > 

6<R1) 
PC,ENDCLR 

(R4),VA 
PC/EABITS 
PA/4(R1) 

eA/6<ri> 

RCuUNT/6 5.K 

#|4 / (R1) 

/BEGIN 

#2,6(R5) 



Rl) 



,BEGIN 

#XBUF/VA 
PC/EABITS 



. ,T LINK POINTER IN R5 
5UPDATE QUEUE 
T ;|ND OF QUEUE? 
* IF NO 
SET QUEUE POINTER 
. AD CSR ADDRESS 
;XMIT BA/CC? 
?BR IF YES 
;REC BA/CC? 
;BR IF YES 
JCNTL I? 

BR IF YES 
JLOAD VA WITH VIRTUAL ADDRESS 
;GET PHYSICAL ADDRESS 
?LCAD PHYSICAL BASE ADDRESS 

/load ea bits for base address 
/clear rqi 

;set bito in end pass flag to 
;shoh that a base adress was loaded 
jask for cntl i 

;exit to monitor. module wait for 
?set full duplex 
;clear rqi 

;ask for rec ba/cc i 

;exit to monitor 
;get rec buffer pointer 
; add offset 

;va gets rec buffer virtual address 
;get physical address 
;load physical rbuf 

jLQAD RBUF EA BITS 

/LOAD RECEIVER COUNT 

/CLEAR RQI 

; UPDATE OFFSET 

/LOADED 7 BUFFERS YET? 

;br IF YES 

;REQUEST REC BA/CC 

JEXIT TO MONITOR. MODULE WAIT FOR INTERRUPT. 
;SET BITl IN END PASS FLAG TO 
;SHOW THAT ALL 7 REC BA/CC WERE LOADED 
/CLEAR OFFSET 
;ASK FOR XMIT BA/CC I 

/EXIT TO MONITOR. MODULE WAIT FOR INTERRUPT. 
;LQAD XBUF VIRTUAL ADDRESS 
;GET PHYSICAL ADDRESS 
/LOAD PHYSICAL XBUF 
;L0AD EA BITS 



MODULE WAIT FOR INTERRUPT. 
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175664 000006 
000044 
000014 

000007 000014 
000040 

"oogp* 

00004 000006 
000014 
000000* 
000040 
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1$: 



BIS 
JSR 
INC 
CMP 
BEQ 
BISB 
EXIT$/ 
BIS 

CLR 

CLRB 

EXITS/B 

ENDCLR: BICB 
1$: TSTB 

BMI 

RTS 



mm 

000207 



000000* 000244* 
175574 
175570 

175556 



TC0DNT,6(R1) 
~C/ENDCLR 



PC/ 

14(R5) 
*7/14tR5) 

;40/(Rl) 



BEGIN 

"4/6(R5> 



H 5) 



•4],<R1> 



EABITS: 



GETPA$ 
SWAB 

ROL 
ROL 
BIC 
RTS 



/BEGIN/ VA 
EA 
EA 

|§7776/EA 



/LOAD XMIT COUNT 
;CLEAR RQI 

/CDUNT HOW MANT XMIT BA/CC HAVE BEEN LOADED 

;DO WE HAVE ALL 7? 

;BR IF YES 

?ASK FOR XMIT BA/CC 

/EXIT TO MONITOR. MODULE WAIT FOR INTERRUPT. 
JSET BIT? IN END PASS FLAG TO 
>SHOW THAT ALL 7 XMIT BA/CC MERE LOADED 
/CLEAR OFFSET 
/CLEAR IEI 

;EXIT TO MONITOR . MODULE WAIT FOR INTERRUPT. 

;CLEAH RQI 
>IS RDI GONE? 
;BR IF NO 
;RETURN 

;GET PHYSICAL ADDRESS FROM 16-BIT VA 
;BITS 4+5 TO 13+12 
;NQW 14+13 
;NOW 15+14 

JCLEAR ALL BUT 14 & 15 
; RETURN 
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R5,fiOUTQIN 
"2,0UTQIN 
PlROUTQ+20, OUTQ 



, J llROUTQ / OUTQIN 
MOV <SP)+,R5 



iMCVE LINK POINTER TO QUEUE 
/UPDATE QUEUE 
IN SEND OF QUEUE? 
;br IF NO 

J RESET QUEUE POINTER 
;RESTORE R5 



flRQ$,BEGIN,2$ 

PUTqoutTrs 

#2#OUTQOUT 
|PIROUTQ+20,OUTQi 

#?IROUTQ,OUTQOUT 
lR5)«Rl 
|BltO,2(Rl) 

rLcsra 

4(R1),AC 
6lRl)^AS 
ERRTYP 
*********************** 

RDERS, BEGIN, NULL 
-*********************** 

BICB #207,2(R1) 
EXITS, BEGIN 
™ |BIT2,2(Rl) 

!fo7,2(Rl) 



QUEUE UP TO CONTINUE AT 2$ AND RTI 



„ CSR 
* ASTAT 



;GET LINK POINTER FROM QUEUE 
/UPDATE QUEUE 
OUT? END OF QUEUE? 
;BR IF NO 

; RESET QUEUE POINTER 
/LOAD CSR ADDRESS 
;ERROR? 
?BR IF NO 
/LOAD DEVICE CSR 
/LOAD CONTENTS OF DEVICE CSR 
/LOAD ERROR BITS 



************ 



r********** * 



t****** 



CMP 
BNE 
BIC 



(R5) 
nO,2(R5> 
PLAGE, 2{R5) 
#ioO,2(Rl) 



EXITS/BEGIN 
BICB ||07 R§ |(R1) 

#7,13(R5) 



INCB 
CMPB 
BNE 
BIS 

CMP 
BNE 
BIC 



#20,2<R5) 
FLAGB,2(R5) 



#100,2<R1) 



CEIVED, ASTAT=EKROR BITS 
************************ 

MODULE WAIT FOR INTEPRUP1 



EXITS/BEGIN 



A CNTL 
********* 

JCLEAR RDO 

JEXIT TO MONITOR 
; RECEIVER DONE? 
/BR IF YES 
jCLEAR RDO 

;LO BYTE IS XMIT DONE COUNT 
;DO WE HAVE 7 XMIT DOMES YET? 
;br IF NO 

>SET BIT3 IN ENDPASS FLAG TO 
;SHOW THAT HE GOT 7 XMIT DONES 
; ALL DONE? 

;br if no 

;CLEAR OIE IF YES 

/EXIT TO MONITOR. MODULE WAIT FOR INTERRUPT . 
/CLEAR ROD 

;HI BYTE IS RFC DONE COUNT 
;DO WE HAVE 7 REC DONES YET? 
JBR IF NO 

;SET BIT4 IN ENDPASS FLAG TO 

;SHOW THAT WE GOT ALL 7 REC DONES 

;all DONE? 

; BR IF NO 

;CLEAR DIE IF YES 

;F.XIT TO MONITOR. MODULE WAIT FOR INTERRUPT. 
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/LINK TABLE TO INTERRUPT SERVICE ROUTINES 




004567 176776 
004567 177466 
000000 



004567 176742 

mm 177432 



CSRi: 
xx li: 



XX12 
XX 13 



CSR2: 
XX21: 



XX22: 
XX23: 



JSR 
JSR 
.WORD 

.word 

RBUF1 
BASE1 
.WORD 
.WORD 
■ WORD 
.WORD 
.WORD 
. WORD 

JSR 

JSR 

. WORD 

. WORD 

RBUF2 

BASE2 

.WORD 

.WORD 

.WORD 

. WORD 

.WORD 

.WORD 



R5/IISR 
R5,OISR 



R5,IISR 
R5,OISR 



;DMC CSR FOR DEVICE 1 

;END PASS FLAG FOR DEVICE 1 

;RECEIVE BUFFER POINTER FOR DEVICE 1 

;BASE ADDRESS FOR DEVICE 1 

^RECEIVE BUFFER OFFSET FOR DEVICE 1 

;REC/XMIT COUNTERS 

/THESE NEXT 8 BYTES ARE FOR 

JTHE DDCMP ERROR COUNTS 

;IN THE BASE TABLE TO BE 

;SAVED FOR COMPARISION. 



?DMC CSR FOR DEVICE 2 

?END PASS FLAG FOR DEVICE 2 

JRECEIVE BUFFER POINTER FOR DEVICE 2 

;BASE ADDRESS FOR DEVICE 2 

;RECEIVE BUFFER OFFSET FOR DEVICE 2 

JREC/XMIT COUNTERS 

/THESE NEXT 8 BYTES ARE FOR 

;THE DDCMP ERROR COUNTS 

/IN THE BASE TABLE TO BE 

sSAVED FOR COMPARISION. 
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m nm 

017577 



020020 xbuf: 
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.ASCII <001><002X004>< 01 CX020X 040X1 00><200><377><376> 

. ASCII <375><37 3X367 ><357X337X277X177X037><076X174> 

. ASCII <370X360XQ01X340X003X300X007>/ABCDEFGHIJKLN/ 

-ASCIZ /NOPQRSTUVWXYZO 1234567 890/ 



004' _ . 
005024" 



;TABLE OF RECEIVE BUFFER POINTERS 



RBUF1 
RBUF2 



JBUFFER POINTER FOR DEVICE 1 
;BUFFER POINTER FOR DEVICE 2 



; TABLE OF RECEIVE BUFFERS 

;RECEIVE BUFFERS FOR DEVICE 1 

RBUF11 
RBUF12 
RBUF13 
RBUF14 
RBUF15 
RBUFI6 



RBUF21 
RBUF22 
RBUF23 
RBUF24 
RBUF25 
RBUF26 
RBUF27 



;RECEIVE BUFFERS FOR DEVICE 1 



;RECEIVE BUFFERS FOR DEVICE 2 
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000100 
00010" 




000400 
000400 



RBUFll: 
RBUF12: 
RBUF13: 
RBUF14: 
RBUF15: 
RBUF16 : 



RBUF21: 
RBUF22: 
RBUF23: 
RBUF24: 
RBUF25: 
RBUF26: 
RBUF27: 



BASEl: 
BASE2: 



. BLKB 

• BLKB 

• BLKB 
« BLKB 
.BLKB 
. BLKB 
.BLKB 



100 
100 
100 
100 
100 
100 
100 



;RECEIVE BUFFER 11 

;RECEIVE BUFFER 12 

;RECEIVE BUFFER 13 

;RECEIVE BUFFER 14 

JRECEIVE BUFFER 15 

;RECEIVE BUFFER 16 

JRECEIVE BUFFER 17 



;RECEIVE BUFFERS FOR DEVICE 2 

.BLKB 100 ;RECEIVE BUFFER 21 

.BLKB 100 ;RECEIVE BUFFER 22 

. BLKB 100 ;RECEIVE BUFFER 23 

.BLKB 100 ;RECEIVE BUFFER 24 

.BLKB 100 ;RECEIVE BUFFER 25 

.BLKB 100 ;RECEIVE BUFFER 26 

.BLKB 100 ;RECEIVE BUFFER 27 



.BLKB 256. ;B ASE TABLE FOR DEVICE 1 
.BLKB 256. /BASE TABLE FOR DEVICE 2 
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XDMCB0.P11 12-QCT-78 12:02 CROSS REFERENCE TABLE — USER SYMBOLS 

ACSR QQQ1Q2R 247# 442* 478* 639* 

ADDR till 297 333 

ADDR22 S 001000 ffOf 

ASB 000106R 25l| 402* 

ASTAT QQ0104R 2491 443* 479* 640* 

m\ mm w m: 



B 



mi 

BITl" 

bit} 

HH. 

BIT14 » 046000 260| 342 

HI ■ ; hmi mi 

BREAK$= 10440l 2.S6I 347 348 

BR1 Q0QQ12R 2J5J 316 320 

B R I oogglfR 

BUFTftB 
CD ATA$= 
CONFIG 

csri omsssr ur 111* 

CSR2 003042R 468 690# 

8P |: *8Pr M »3. 49» 495 

8H3 mftfll lift 83: a?: is 

ei lip 296 

ITS o8?44?li 

_.._CLR 00243QR 

ENDIT$= 104413 

hMtp" mhh 



ill mi m tn m in m m 



4R 382 731# 

id IP im 



§9 



m& mim p ip t Iff* ir* 

ESAY3 001606R 484* 504| 511 516 



07 



DROP! $0il§P 475 494§ 

H" 1 SSlPii »3t iH I? 5,4 615. 616. 



104400 260# 568 
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FIRST 

FLAGB 

FTABLE 

GETPA$= 

GWBUFS= 

HRDCHT 

HRDERS= 

HRDPAS 

ICONT 

ICOUNT 

IDNUM 

IISR 

INIT 

INQIN 

INQOUT 

INTLNK 

INTR 

LOOP 

MAP22$= 

MASK 

MODNAM 

HODSP 

MSGNS = 

MSGS$ = 

MSGS = 

NULL = 

OISR 

OPEN = 



104403 
104402 

mm 
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290* 
300 
514# 
614 



111* 

380 

81* 



621* 

630 

562 

303 
305 
546 



324 
301 



688 

540* 
549* 
67 4# 

470 

374* 

475 



541 
623 
628 



340 
372 



i>76 689 



623 
632 
593 

543 
625 



543* 722# 
552* 7231 



378 393* 410* 458 



221 
254 



625* 
634* 



550 
632 



552 
634 



719# 
72 Oft 



240 
26 0# 



000200 
$00240 



260# 



736|f 
757| 
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RBUF1 
RBUF1 



RBUF1 



744# 



721# 
290# 

m 



334 381 



281# 



O01QR 

4R 



00010 
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000116R 255* 283* 

000114R 2541 282* 

Q03066R 396 591 704# 

001640R 494 520" 



ill in i# 




472# 
67 8# 
375 691# 

nst m m\ mi m m m 760# 7618 lw 



OOOOOO 000 
006124 001 



ERRORS DETECTED: 
DEFAULT GLOBALS GENERATED : 



xdmcbo,xdmcbo/sol/crf:sym=ddxcom,xdmcbo 
run-time: 2 3 .4 seconds 

2.2 

PAGES) 



run-time ratio: 14/6=2.2 
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